(math-compose-expr): Let math-expr-opers equal math-expr-ops.

diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index 7b385261735d3df9f338c1d67397b3d540042c3e..3b52edecaec1b54990209ec9588ce9d342032a3f 100644 (file)
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -83,6 +83,7 @@
 
 (defun math-compose-expr (a prec)
   (let ((math-compose-level (1+ math-compose-level))
+        (math-expr-opers (math-expr-ops))
         spfn)
     (cond
      ((or (and (eq a math-comp-selected) a)